From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 4 Jul 2015 08:13:22 +0000 (+0200)
Subject: Have `compilation-set-window' use right window for getting fringes (Bug#20829)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~2381
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=19f71dcdc47d9b1ee0a3982391f1a2332fbc765e;p=emacs.git

Have `compilation-set-window' use right window for getting fringes (Bug#20829)

* lisp/progmodes/compile.el (compilation-set-window): Take
`window-fringes' from argument window.  (Bug#20829)
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 37d3fe84114..9a4433595ef 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2521,9 +2521,9 @@ displays at the top of the window; there is no arrow."
 			     (- 1 compilation-context-lines))
 			    (point)))
     ;; If there is no left fringe.
-    (if (equal (car (window-fringes)) 0)
-	(set-window-start w (save-excursion
-			      (goto-char mk)
+    (when (equal (car (window-fringes w)) 0)
+      (set-window-start w (save-excursion
+                            (goto-char mk)
 			    (beginning-of-line 1)
 			    (point)))))
     (set-window-point w mk))